Apple II Magazines (DO)

home *** CD-ROM | disk | FTP | other *** search

/ Apple II Magazines (DO) / Nibble Volume 09, No. 11 (1988-11)(MicroSPARC)(Side B).zip / Nibble Volume 09, No. 11 (1988-11)(MicroSPARC)(Side B).do / NW.BIN.S < prev next >

Wrap

Text File | 1996-12-24 | 24KB | 830 lines

$BA ; ":" STA (BASL),Y INY LDX #0 PELP3 LDA #$AD ; PRINT TOP STA (BASL),Y ; AND BOTTOM INY ; LINES INX CPX #4 BNE PELP3 CPY #40 BNE PELP2 LDY #0 LDA #22 JSR TABV LDA #$AD PELP4 STA (BASL),Y INY CPY #40 BNE PELP4 ;-- LDA #2 ;-- STA WINDT ; SET LDA #22 ; WINDOWS STA WINDB ;-- RTS ************************* * PRINT MESSAGE TO SCREEN ************************* MESSAGE STA TMP STX TMP1 LDY #0 LDA (TMP),Y STA CH INY LDA (TMP),Y JSR TABV MGLP INY LDA (TMP),Y BEQ MSG1 JSR COUT BNE MGLP MSG1 JSR CLREOL RTS ***************************** * SET MEMORY POINTER TO $7000 ***************************** SETCM LDA #0 STA CML LDA #$70 STA CMH LDA #1 STA LN RTS **************** * SAVE VARIABLES **************** SAVALL JSR SAVCSR LDA CML STA PTRSAV LDA CMH STA PTRSAV+1 LDA LN STA LNSAV RTS ******************* * RESTORE VARIABLES ******************* RESALL JSR RESCSR LDA PTRSAV STA CML LDA PTRSAV+1 STA CMH LDA LNSAV STA LN RTS ********************** * SAVE CURSOR SETTINGS ********************** SAVCSR LDA CH STA CHSAV LDA CV STA CVSAV RTS ************************* * RESTORE CURSOR SETTINGS ************************* RESCSR LDA CHSAV STA CH LDA CVSAV JSR TABV RTS ********************************** * MOVE MEMORY POINTER TO NEXT LINE ********************************** NXTLN CLC LDA CML ADC #40 BCC NXT1 INC CMH NXT1 STA CML INC LN RTS ************************************** * MOVE MEMORY POINTER TO PREVIOUS LINE ************************************** PRELN SEC LDA CML SBC #40 BCS PRE1 DEC CMH PRE1 STA CML DEC LN RTS *************************** * SET MEM & CV TO NEXT LINE *************************** SETNXTLN JSR LF JSR NXTLN RTS ******************************* * SET MEM & CV TO PREVIOUS LINE ******************************* SETPRELN JSR UP JSR PRELN RTS ****************************** * GO TO BEGINNING OF NEXT LINE ****************************** BNXTLN LDA #0 STA CH JSR SETNXTLN RTS ***************** * SET LINE TO FLN ***************** SETFLN JSR SETCM STLP LDA LN CMP FLN BEQ SFN1 JSR NXTLN JMP STLP SFN1 RTS *************** * MAKE NEW LINE *************** NEWLN LDA #0 LDY #40 NWLP STA (CML),Y DEY BPL NWLP INC LLN RTS ********************** * FIND END OF DOCUMENT ********************** FENDOC JSR SETCM FENDOC1 LDY #0 FELP LDA (CML),Y BEQ FED1 JSR NXTLN JMP FELP FED1 RTS ******************** * SET MEM MOVE START ******************** SETMMS JSR NXTLN LDA CML STA MMS LDA CMH STA MMS+1 RTS ****************** * SET MEM MOVE END ****************** SETMME JSR FENDOC SETMME1 JSR NXTLN LDA CML STA MME LDA CMH STA MME+1 RTS ************************** * SET MEM MOVE DESTINATION ************************** SETMMD LDA CML STA MMD LDA CMH STA MMD+1 RTS *************** * MOVE MEM DOWN *************** MOVDN LDY #0 JSR MOVE RTS ************* * MOVE MEM UP ************* MOVUP LDY #0 MMLP LDA (MME),Y STA (MMD),Y LDA MMS ;-- CMP MME ; REACHED START LDA MMS+1 ; OF MEMORY SBC MME+1 ; FOR MOVE? BCS MVP3 ; YES LDA MMD BNE MVP1 DEC MMD+1 MVP1 DEC MMD LDA MME BNE MVP2 DEC MME+1 MVP2 DEC MME JMP MMLP MVP3 RTS *********** * CHECKS #1 *********** CHECK1 JSR CKLLN ; LAST LINE? BNE CK11 ; NO JSR NXTLN JSR NEWLN JSR PRELN CK11 JSR CKWINB BNE CK12 INC FLN ; SCROLL JSR PRNTDOC ; UP JSR UP CK12 RTS *********** * CHECKS #2 *********** CHECK2 LDA #0 STA TMP JSR CKBCSR ; 0 BEFORE CURSOR? BEQ CK21 ; YES CMP #$0D ; CR BEFORE CURSOR? BNE CK24 ; NO JMP CK23 CK21 LDY CH CKLP DEY ;-- LDA (CML),Y ; SWITCH BNE CK22 ; SPACES JSR STRSPCM ; FOR 0'S CPY #0 ; BEFORE BEQ CK24 ; CURSOR JMP CKLP ;-- CK22 CMP #$0D ; CR BEFORE CURSOR? BNE CK24 ; NO CK23 INC TMP JSR STRSPCM ; STORE SPACE IN MEM CK24 RTS ************* * STORE ENTRY ************* STORENT LDA KBD LDY CH STA (CML),Y ORA #$80 JSR COUT RTS ******************** * STORE SPACE IN MEM ******************** STRSPCM LDA #$20 STA (CML),Y RTS ******************* * STORE ZERO IN MEM ******************* STOR0M LDA #0 STA (CML),Y RTS *************************** * PRINT CHARACTER TO SCREEN *************************** PRCHAR LDA (CML),Y BEQ PRC1 CMP #$0D BNE PRC2 LDA CRSF BEQ PRC1 LDA #$2A ; INVERSE ASTERISK JMP PRC3 PRC1 LDA #$20 PRC2 ORA #$80 PRC3 STA (BASL),Y RTS **************************** * PRINT 20 LINES OF DOCUMENT **************************** PRNTDOC JSR SAVALL PRNTDOC1 JSR SETFLN LDA #2 JSR TABV PDLP1 LDY #39 ;-- PDLP2 JSR PRCHAR ; PRINT DEY ; ONE BPL PDLP2 ; LINE LDA LN CMP LLN ; LAST LINE? BEQ PD1 ; YES LDA CV CMP #21 ; OR BOTTOM OF WINDOW? BEQ PD1 ; YES JSR SETNXTLN ; MOVE TO NEXT LINE JMP PDLP1 ; AND PRINT IT PD1 JSR RESALL RTS ********************** * PRINT LINE & COL #'S ********************** PRNTLC JSR SAVCSR LDA #MSGLC ; PRINT LDX #MSGLC/ ; LINE/COLUMN JSR MESSAGE ; MESSAGE LDA #5 ; STA CH ; PRINT NEW LDA #0 ; LINE NUMBER LDX LN ; MSB-ACC JSR OUTNUM ; LSB-X LDA #17 ;-- STA CH ; PRINT NEW LDA #0 ; COLUMN LDX CHSAV ; NUMBER INX ; JSR OUTNUM ;-- JSR RESCSR RTS ************************ * VARIOUS CHECKS & TESTS ************************ CKELN LDY CH CPY #39 RTS * CK0BLN LDY #0 LDA (CML),Y RTS * CK0ELN LDY #39 LDA (CML),Y RTS * CKBCSR LDY CH DEY LDA (CML),Y RTS * CKUCSR LDY CH LDA (CML),Y RTS * CKACSR LDY CH INY LDA (CML),Y RTS * CKNXTLN0 LDY #40 LDA (CML),Y RTS * CKLN1 LDA LN CMP #1 RTS * CKFLN LDA LN CMP FLN RTS * CKLLN LDA LN CMP LLN RTS * CKLMT LDA LN CMP #241 RTS * CKFDOC LDA LLN CMP #241 RTS * CKWINT LDA CV CMP #2 RTS * CKWINB LDA CV CMP #21 RTS * CKSPCK LDA KBD CMP #$20 RTS * CKSPCM LDA (CML),Y CMP #$20 RTS * CKCRM LDA (CML),Y CMP #$0D RTS ***************************** * GET WORD LENGTH FOR WRAP UP ***************************** CHKWRD JSR COUNT0 JSR NXTLN LDY #0 ;-- LDX #0 ; LDA (CML),Y ; CMP #$20 ; GET LENGTH BEQ CKW1 ; CMP #$0D ; OF FIRST BEQ CKW1 ; CWLP1 INY ; WORD LDA (CML),Y ; BEQ CKW1 ; ON LINE CMP #$0D ; BEQ CKW1 ; CMP #$20 ; BNE CWLP1 ; CKW1 INY ; STY WRDLEN ;-- SEC ; COMPARE TO CPY LEN0 ; LENGTH OF 0'S BEQ CKW2 ; EQUAL INX DEY BCC CWLP1 ; SHORTER CPX #1 ; FIRST WORD? BNE CWLP2 ; NO INC STOPF BNE CKW2 CWLP2 DEY ;-- JSR CKSPCM ; STRIP OFF BNE CWLP2 ; A WORD INY ; STY WRDLEN ;-- CKW2 JSR PRELN RTS *********************************** * GET LENGTH OF WORD AT END OF LINE *********************************** GETWRDLN LDX #0 JSR CK0ELN CMP #$0D ; CHECK FOR BNE GWLP1 ; CR IN INC CRF ; WORD GWLP1 CPY #0 BEQ GTW1 DEY INX JSR CKSPCM BNE GWLP1 STX WRDLEN RTS GTW1 LDA #1 STA WRDLEN RTS ******************************** * GET LENGTH FROM CH TO END LINE ******************************** GTWRDLN1 SEC LDA #40 SBC CH STA WRDLEN RTS ************** * MOVE WORD UP ************** MOVWRDUP SEC LDA #40 STA YHI SBC LEN0 STA YLO LDX WRDLEN MULP LDY YHI LDA (CML),Y LDY YLO STA (CML),Y INC YLO INC YHI DEX BNE MULP RTS **************** * MOVE WORD DOWN **************** MOVWRDN SEC LDA #40 STA YHI SBC WRDLEN STA YLO MDLP1 LDY YLO LDA (CML),Y BEQ MWD1 LDY YHI STA (CML),Y INC YHI LDY YLO JSR STOR0M INY STY YLO CPY #40 BNE MDLP1 MWD1 RTS ******************* * MOVE LINE TO LEFT ******************* MOVLNL LDY WRDLEN STY YHI LDY #0 STY YLO LDY YHI LDA (CML),Y BNE MLLP1 INC CRF ; IF CR IN WORD MOVED MLLP1 LDY YHI LDA (CML),Y LDY YLO STA (CML),Y CMP #$0D ; CHECK FOR BNE MLL1 ; CR IN INC STOPF ; LINE MLL1 INC YLO INC YHI LDY YHI CPY #40 BNE MLLP1 LDY YLO MLLP2 JSR STOR0M ; FILL REST INY ; OF LINE CPY #40 ; WITH 0'S BNE MLLP2 RTS ******************* * MOVE LINE RIGHT 1 ******************* MOVLNR1 LDY #39 MRLP DEY LDA (CML),Y INY STA (CML),Y DEY CPY CH BNE MRLP RTS ******************* * MAKE A BLANK LINE ******************* MBLANKLN JSR SAVALL JSR SETMMS ;-- JSR SETMME ; SET MEMORY JSR NXTLN ; POINTERS AND JSR SETMMD ; MOVE MEMORY JSR MOVUP ;-- JSR RESALL JSR NXTLN ; FILL NEW LINE JSR LINE0 ; WITH 0'S INC LLN JSR RESALL RTS ********************** * CHECK FOR CR ON LINE ********************** CHKCR LDY #0 CKRLP JSR CKCRM BNE CKR1 INC CRF CKR1 INY CPY #40 BNE CKRLP RTS ********************************** * GET LENGTH OF 0'S AT END OF LINE ********************************** COUNT0 LDY #40 LDX #$FF CTLP DEY INX LDA (CML),Y BEQ CTLP STX LEN0 RTS ******************** * FILL LINE WITH 0'S ******************** LINE0 LDY #39 L0LP JSR STOR0M DEY BPL L0LP RTS *************************** * PRINT DOCUMENT TO PRINTER *************************** PPRINT JSR SETCM LDA #0 STA STOPF JSR PAUSE LDA STOPF BEQ PPR1 JMP PRTN1 PPR1 JSR PRNTLM LDY #0 STY CRF STY PPOS DEY LDA STROBE NXTWRD LDA KBD ;-- BPL PPR2 ; ESCAPE KEY CMP #$9B ; PRESSED? BNE PPR2 ;-- JMP PRTN ; YES PPR2 LDA STROBE LDX #0 PPLP1 INX PPLP2 INY CPY #40 ; END OF LINE? BNE PPR3 ; NO LDA (CML),Y ; END OF DOCUMENT? BEQ PRTN ; YES JSR NXTLN ; MOVE MEM PTR DEC LN ; RESET LINE LDY #0 ; RESET Y PPR3 LDA (CML),Y BEQ PPLP2 ; IF 0, MOVE ON INC PPOS LDA PPOS CMP RM ; RIGHT MARGIN? BNE PPR4 ; NO INC CRF ; SET CR FLAG PPR4 LDA (CML),Y CMP #$0D ; CHARACTER CR? BEQ PPR5 ; YES CMP #$20 ; CHAR SPACE? BNE PPLP1 ; NO PPR5 STX WRDLEN LDA CRF ; CR FLAG SET? BEQ PWRD ; NO STY YSAV1 LDA #$0D JSR PGEND LDA STOPF BNE PRTN1 JSR PRNTLM ; PRINT LEFT MARGIN LDY #0 STY CRF ; RESET CR FLAG LDY WRDLEN ; WRDLEN STY PPOS ; & PPOS LDY YSAV1 ; RESTORE Y PWRD LDX #0 INY SEC ; RESET Y TO TYA ; SBC WRDLEN ; START OF WORD TAY DEY PPLP3 INX INY LDA (CML),Y STY YSAV1 CMP #$0D ; CR? BNE PPR6 ; NO JSR PGEND LDA STOPF BNE PRTN1 JSR PRNTLM LDY #0 STY PPOS ; RESET PPOS JMP PPR7 PPR6 ORA #$80 ; PRINT CHARACTER JSR COUT PPR7 LDY YSAV1 ; RESTORE Y CPX WRDLEN ; END OF WORD? BNE PPLP3 ; NO JMP NXTWRD ; GET NEXT WORD PRTN LDA #$8C ; FORM FEED JSR COUT PRTN1 RTS * END OF PAGE? PGEND ORA #$80 ; PRINT CR JSR COUT INC LN LDA LN CMP BM ; BOTTOM MARGIN? BNE PGD1 ; NO LDA #$0C JSR COUT LDA #0 STA LN JSR PAUSE PGD1 RTS **************** * SET TOP MARGIN **************** SETTM LDA #$8D ; CR JSR COUT INC LN LDA LN CMP TM BCC SETTM RTS ********************* * PAUSE TO LOAD PAPER ********************* PAUSE LDA #30 STA CH LDA #9 JSR TABV PAUSE1 JSR KEYIN CMP #$9B BNE PSE1 INC STOPF RTS PSE1 CMP #$A0 BNE PAUSE1 JSR SETTM RTS ******************* * PRINT LEFT MARGIN ******************* PRNTLM LDA #$A0 LDY LM LMLP JSR COUT DEY BNE LMLP RTS *************************** * COMMAND CODES & ADDRESSES *************************** CMDCODE DFC $85,$9B,$95,$88,$8A,$8B,$89 DFC $86,$83,$8C,$99,$9A,$8D,$84,$FF CMDADR DFC CHGCSR,CHGCSR/ DFC ESC,ESC/ DFC RARR,RARR/ DFC LARR,LARR/ DFC DNARR,DNARR/ DFC UPARR,UPARR/ DFC TAB,TAB/ DFC FRSTLN,FRSTLN/ DFC CNTRLN,CNTRLN/ DFC LASTLN,LASTLN/ DFC CLEAREOL,CLEAREOL/ DFC SHOWCR,SHOWCR/ DFC RTN,RTN/ DFC DELETE,DELETE/ DFC DELETE,DELETE/ *************************** * VARIOUS FLAGS & REGISTERS *************************** IMODE DFC 0 CRF DFC 0 CRSF DFC 0 STOPF DFC 0 LEN0 DFC 0 WRDLEN DFC 0 FLN DFC 1 LLN DFC 1 CHSAV DFC 0 CVSAV DFC 0 LNSAV DFC 0 YSAV DFC 0 YSAV1 DFC 0 PTRSAV DFS 2 **************** * ESCAPE MESSAGE **************** ESCMSG DFC 22,0 ASC "ESCAPE: MAIN MENU" DFC 0 ********************* * LINE/COLUMN MESSAGE ********************* MSGLC DFC 0,23 ASC "LINE COLUMN" DFC 0 S \:::'f:"<ARROWS> - MOVE CURSOR"-p:Sz:"<ESCAPE> - RETURN TO MAIN MENU"Y::"<DELETE> - DELETE CHAR LEFT OF CURSOR":7":"<CTRL>-D - DELETE CHAR UNDER CURSOR"=,:l6:"<CTRL>-E - CHANGE INSERT/REPLACE CURSOR"r@:J:"<CTRL>-Y - CLEAR FROM CURSOR TO EOL"#T:O^:"<CTRL>-Z - SHOW CR'S AS INV ASTERISK"Uh:r:" <TAB> - MOVE CURSOR TO NEXT TAB POS" |:.:"<CTRL>-F - MOVE TO FIRST LINE"T:"<CTRL>-C - MOVE TO CENTER LINE"y:"<CTRL>-L - MOVE TO LAST LINE";,$1:"24::"PRESS RETURN TO CONTINUE: ";:>A$:+4202.:>82 QUITDB:uL:"10::"DO YOU REALLY WANT TO QUIT (Y/N)? ";}V>A$`-A$P"Y"NA$P"y"D1790,j-A$P"N"NA$P"n"D4206t+1750>~:D:b2 FILENAME INPUT ROUTINEh:{&:N$P"":ESCFP0%0"2::"ENTER FILENAME FOR DOCUMENT"::::H::"PRESS '?' TO CATALOG DISK"::yD:"ESCAPE ON 1ST CHAR RETURNS TO MAIN MENU"::BN:"ESCAPE ON ANY OTHER CHARACTER"::" CANCELS INPUT AND STARTS OVER"::^X:"RETURN ACCEPTS INPUT"xb1:"15::"FILENAME: ";l>C$v-C$PE$DESCFP1:1w-C$P"?"D:D$h("CATALOG",7I4JPRODOS)",S"ST",D"DR:1:"24::"PRESS RETURN TO CONTINUE: ";:>A$:+1830 ANPf(C$)-ANO96MANQ123DANPANI32c-ANQ65NANO90DMSG$P"FIRST POSITION MUST BE A LETTER":02250:+1830n(:g(AN){N$Pg(AN)<KP1A15F1:"18:I958(P"15:(11HK)0Z>C$Hd-C$PE$DKP15::+1830fn-C$Pg(8)MKP1DKP15::+1830x-C$Pg(8)DKPKI1:(11HK)::" ":N$Ph(N$,K):+20002-C$PR$DLCPK:KP15:+2110?ANPf(C$)Z-ANO96MANQ123DANPANI32: -(ANQ65NANO90)M(ANQ48NANO57)MANQO46DMSG$P"CHARACTER CANNOT BE USED IN FILENAME":02250:+1990E*:g(AN)U4N$PN$Hg(AN)[>#H-C$QOR$DMSG$P"FILENAME TOO LONG, LIMIT - 15 CHARACTERS":02250:+1830.RFL$PN$:\IP0A15If9FADDRHI,0Op^zKP1Ac(N$)~9FADDRI1HK,f(j(N$,K,1))H1289FADDRHLC,0"1 ,:662 ERROR MESSAGES<@:DJ:B$OT1:"18]^:MSG$::::h:"PRESS RETURN AND TRY AGAIN: ";:9I16368,0:>AA$r1|:; 2 PRINTER MARGIN ROUTINEA :T :N$P"":ESCFP0$ "2::"ENTER VALUE FOR "M$::"MAXIMUM "MA$" - MINIMUM "MI$::C. :"ESCAPE ON 1ST CHAR RETURNS TO MAIN MENU"::8 :"ESCAPE ON ANY OTHER CHARACTER"::" CANCELS INPUT AND STARTS OVER"::(B :"RETURN ACCEPTS INPUT"ZL :::"RETURN ON 1ST CHAR ACCEPTS DEFAULT (1.0)"qV 1:"15::M$": 1.0"|` 5:"15 j >C$ t -C$PE$DESCFP1:1. ~ -C$PR$DN$P"1.0":1; ANPf(C$)a -ANQ48NANO57DMSG$PM3$:02250:+2330p :C$;:I868z & N$PC$ 0 KP1A3 : 1:"18:I958% D "15:(5HK)- N >C$D X -C$PE$DKP3::+2330a b -C$Pg(8)MKP1DKP3::+2330!l -C$Pg(8)DKPKI1:(5HK)::" ":N$Ph(N$,K):+2500&!v -C$PR$DKP3:+26003! ANPf(C$)b! -(ANQ48NANO57)MANQO46DMSG$PM3$:02250:+2490j! :C$w! N$PN$HC$}!( A!2 -C$QOR$DMSG$P"INPUT TOO LONG, LIMIT - 3 CHARACTERS":02250:+2330G!< 1M!F :k!P 2 ERASE CURRENT DOCUMENT?q!Z :4"d :ESCFP0:"8::"YOU ARE ABOUT TO ERASE"::"THE CURRENT DOCUMENT."f"n "12::"DO YOU REALLY WANT TO DO THIS? (Y/N) ";n"x >A$ " -A$P"N"NA$P"n"DESCFP1:1$" -A$QO"Y"MA$QO"y"D2680*" 10" :L"* 2 SELECT SLOT AND DRIVER"4 :#> :"1::"WHICH SLOT DO YOU WANT TO USE? (2-7) "; #H >A$>#R -A$PO"2"MA$QPg(54HPRODOS)D:A$:STPe(A$):+2790H#\ +2760#f "5::"WHICH DISK DRIVE"::"DO YOU WANT TO USE? (1-2) "; #p >A$0#z -A$P"1"NA$P"2"D:A$:DRPe(A$):+2830:#+2800n#9216,0:%+2870:-PRODOSD:D$"PREFIX,S";ST;",D";DR:#-PRODOSD+420 2*********************72* FIVER.DICER *R2* BY DAVID KALLAS *m2* COPYRIGHT 1988 *2* MICROSPARC, INC. *#2* CONCORD, MA 01742 *>2*********************R :::g(21):+130g2* CENTER TEXT *(21Ic(X$)K2)::X$:1 (2* CENTER-OUT WIPE *; 2XP1A20:932,20IX:933,2JX:::1V <2* WAIT FOR KEYPRESS *x FX$P"PRESS RETURN TO CONTINUE" P030:9CL,0:5KB,128:1, Z2* GET (Y/N) RESPONSE *Y d9CL,0:>X$:-X$P"Y"NX$P"y"NX$P"N"NX$P"n"D1b n+100z x2** INTRODUCTION **N )210:XP5A25:"1:XI4::" DICER";:40IX::"FIVER ";::)255:20::"--":2MOVING TITLE4 "7:X$P"A GAME OF LUCK AND SKILL":030:X$P"IN WHICH YOU MATCH WITS":030:X$P"WITH YOUR COMPUTER":030"12:X$P"BY DAVID KALLAS":030:X$P"COPYRIGHT (C) 1988":030:X$P"MICROSPARC, INC.":0308 KBP49152:"23:070:+1520:2INIT. VARIABLESy*XP0A12:91024HX,32:91063IX,32::2DRAW INVERSE LINE AT VTAB 194934,1:050:X$P"PLAY AGAINST COMPUTER?":"5:030:17::"(Y/N) ";>0100::X$:"8:-X$P"Y"NX$P"y"D"ENTER YOUR NAME: ";NM$(1):NM$(0)P"APPLE II":OPP1:+210HHXP0A1::"ENTER NAME OF PLAYER #"XH1;:": ";NM$(X):R:::"PLAYER TO GO FIRST? (1 OR 2)"::"1) "NM$(0)::"2) "NM$(1):"b(37)I2:304\>X$:PLP0:-X$P"1"DPLP1:+250Ef-X$QO"2"D220Zp2** MAIN LOOP ** z050:XPV(0):PLPFPL:RDPRDH1:-RDO26D1410:2ONLY 13 ROUNDS PER PLAYER? X$PNM$(PL)H"'S TURN":"6:030n XP0A19:"3:XJ2H1::"+-":"9:39IXJ2::"-+":m "17:XP1A6::"<"g(XH64)"> "SC$(X,PL),"<"g(XH70)"> "SC$(XH6,PL):::,"<M> "SC$(13,PL):"24::"PLAYER: "NM$(PL);:2DRAW SCORECARD$"-PLP0MOPD"5:::I868:ZP3:0470:+890:2COMPUTER'S TURN=,2** PLAYER'S TURN **W6"6:I868:"13:I868:1@0470:0330:0330:+520:2ALLOWS FOR 2 RE-ROLLSTJ"11:X$P"ROLL DICE AGAIN?":030:::17::"(Y/N) ";:0100:-X$P"N"NX$P"n"D!:+520nT2** PLAYER RE-ROLL **(^"10::::"KEYS 1-5 TOGGLE ";:::"ROLL";:::" / KEEP "::h::"INVERSE";:::" #'S INDICATE DICE TO BE ROLLED":::::"RETURN";:::" RE-ROLLS THE SELECTED DICE"=r"8:XP0A4:XJ8H4::XH1;::2NUMBER THE DICE|9CL,0:5KB,128:XPb(KB)I128:-XQO13M(XQ49NXO53)D380:2ONLY 1,2,3,4,5 OR 'RETURN'-XP13D410oXPXI49:YP1923H8JX:XP(b(Y)Q128)J128H49HX:9Y,X:+380:2POKE FLASH/NORMAL TO SCREEN-XP0A4:-b(1923H8JX)Q128DD(X,0)P0:2IF INVERSE THEN RE-ROLLi$:"7:::I868:XP11A15:"X:I868::2GET RID OF DIRECTIONS.2* ERASE UNWANTED DICE *J8XP0A4:-D(X,0)P0D"5:YP1A3:8JXH3::" "::23 SPACES BETWEEN ""PBoL2** ROLL/DRAW/SORT DICE **@VSPPb(241):)220::XP0A4:-D(X,0)P0DD(X,0)PS([(1)J6H1):YP0A9:YYPb(BZ)::2ROLL|`932,XJ8H2:"5::DP$(D(X,0)):D(X,1)PD(X,0)::932,0::2DRAW-jYP0A3:-D(Y,1)QPD(YH1,1)D::932,0:9241,SP:1etXPD(Y,1):D(Y,1)PD(YH1,1):D(YH1,1)PX:+490:2SORT DICE~2** PLAYER'S SCORING **]"10:::X$P"WHICH CATAGORY DO YOU CHOOSE":030:::X$P"FOR THIS TURN?":030:::X$P"(A-M) ":030"15:24:>X$:XPf(X$):XPXI32J(XO96MXQ123)I64:-XQ1NXO13D520|-i(SC$(X,PL),1)QO":"D"11:X$P"CATAGORIES CANNOT BE RE-USED":030:::X$P"SELECT ANOTHER":030:+530$&CTPX:2GET CATAGORY # FOR SCORE-TEST702** SCORING **`:SCP0:-CTQ7D0680:+590:2SINGLES COLUMND4CTI60710,710,780,780,780,830,8706N-PLP0MOPP1DFL(CT)PSC:1:2FOR COMPUTER'S TURNRX2** ADD TO SCORECARD **wb-SCQ10DSC$(CT,PL)PSC$(CT,PL)H" "HlSC$(CT,PL)PSC$(CT,PL)Hd(SC):T(PL)PT(PL)HSC:2ADD SCORE TO SCORECARD AND TOTALv:XP1A2:"16HCTI6J(CTO6):5H16J(CTO6)::SC$(CT,PL):IP1A1000::2HIGHLIGHT SELECTIONNYP11A15:"Y:I868::::2RESTORE SELECTION~ "13:070:XP0A4:D(X,0)P0::2CLEAR DICE ARRAY+250:2NEXT PLAYER-2** SCORING TESTS **L(XP0A4:-D(X,0)PCTDSCPSCHCT`2:1:21'S TO 6'S~<2 ** LARGE & SMALL RUN **FYP3:-CTP8DYP4:2SET COUNTERFPXP0A3:-D(X,1)H1PD(XH1,1)DYPYI1:+740}Z-D(X,1)QOD(XH1,1)M(XP1NXP2)DYPYH1:2NOT IN SEQUENCEd:-YO0D1:2 NEITHER RUN.nSCP30:-CTP8DSCP404x1O2 ** 3,4,& 5 DICERS **|YP25:-CTQ11DYP17:-CTP9DYP11:2SET COUNTER%XP0A4:XXP0A4:-D(X,0)PD(XX,0)DYPYI1? ::-YQ1DSCP(CTI6)J10E*1]42 ** THREE & TWO **>-D(0,1)PD(1,1)MD(1,1)PD(2,1)MD(3,1)PD(4,1)DSCP40:1IH-D(4,1)PD(3,1)MD(3,1)PD(2,1)MD(1,1)PD(0,1)DSCP40OR1d\2 ** POT LUCK **